DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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DDDDDDDD BBBBBBEB GGGGGGGG LL AAAAAA NN NN VV VV EEEEEEEEEE cccccccc 

DDDDDDDD BBBBBBBB GGGGGGGG LL AAAAAA NN NN VV VV EEEEEEEEEE ccccccce 

dD DD 8B BB GG LL BA AA NN NN VV vw EE cc 

oD DD 8B BB GG LL AB AA WN NN VV vw EE cc 

DD DD 6B BB GG LL AA AA NNNN NN VV vv EE cc 

DD DD 6B BB GG iL aR AA NNNN NN VV vv EE cc 

DD DD 88888688 GG LL AR AA WN NN NN VV VV EEEEEEEE cc 

DD DD GG LL AA AA WN WN NN VV VV EEEEEEEE cc 

DD DD 8B BB GG GGGGGG LL AAAAAAAAAA §=NN NNNN VV vv EE cc 

dD DD 8B BB GG GGGGGG LL AAAAAAAAAA = NN NNNN VV vw EE cc 

dD DD 8B BB GG GG LL AA AA WN NN vv VV EE cc eeee 
dD DD 8B BB GG GG LL Ba AA NN NN VV VV EE cc eeee 
DDDODDDD BBBBBBBB GGGGSG LLLLLLLLLL AA AA NN NN VV EEEEEEEEEE cccccccc cece 
DDDDDDDD BBBBBBBB GGGGGG LLLLLLLLLL AA AA NN NN vv EEEEEEEEEE cccccccc cece 


LLLLLLLLLL 
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'@ 

'e COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:# INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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« 
w 
' * 
'@ TRANSFERRED. * 
& 
t 
e 
& 
© 
® 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- CORPORAT foe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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NAME UN OOONAUNE WN OOONAUES Win 


' 
WRITTEN BY 
Bruce Olsen July, 1980 


REWRITTEN BY 
Rich Title July, 1983 


i 
i 
i 
i 
i 
i 
' MODULE FUNCTION 

! This module contains several miscellaneous routines for 
: manipulating descriptors. The name of the module is a holdover 
t 

i 

i 

i 

i 

i 

i 


SOOooococeoo 


OWE WN—OOe@ 


from the days when each language had its own Primary and Value 
Descriptors. At that time, this module had routines which 

did a CASE on the language, and called the server sate Language 
routine. Now that we have common Primary and 


HF FW ror 


SOOoooooeoo 


alue descriptors 


for all languages, this is no longer necessary. But the routines 


Sesosssesssssssssssssssss 


language-specific routines’. 
R. Title Mar 1983 Removed all of the “level 2°' PASCAL, 
PL/I and COBOL code. 


NOONE WR 0 ODNO UE WN O OD NAME WIN — O ODOM EWN $O OONOU EW OO ONOUE Wh 


Ooooocooe ss 
PAPA AUI 
NAUES WN @OOOWNO USWA O0On 


PUPA & BEERS EPI 


04 for copyin descriptors, deleting descriptors, and so on, 
4 still reside in this module. 
! MODIFIED BY 
004 ; R. Title Aug 1982 Put in ogee to check for implementationm 
104 ; level = 5, so that we can test new support 
: for PASCAL, PLI, and COBOL. 
: R. Title Aug 1982 Added comments to each routine so that 
} the description now says what the routine 
does, instead 9 Just saying ‘’see the 
' 
i 
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} REQUIRE ‘SRC$:DBGPROLOG.REQ'; 
1 FORWARD ROUTINE 

1 pecenert. vabe 

1 DBGSNGET TYPE, 

! BGSNMAKE VAL DESC, 

! DBGSNSYMBOLIZE, 

1 
OE 
: SAF RE 
1 


$ 
eat ag A 


DBG 
DBGSNCOP 
OPY 
DBG 
GSNINIT 


: NOVALUE; 


DBGLANVEC .B32;1 
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rorore 
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wal 7 2 ee 


DBGSDATA_LENGTH 
DBGSEVAL -LANG_ OPERATOR, 


DBGSGET_MEMORY 
DBGS$GET~ TEMPMEM 
DBGSMAKE_VMS_DESC, 


DBGSPRIM_TO_VAL, 


DBGSPRINT_AGGREGATE: NOVALUE, 
DBGSPRINT_IDENTIFIER, 


DBGSPRINT VALUE: NOVALUE, 
DBGSREL_MEMORY: NOVALUE; 


XTERNAL 
DBGSGB_LANGUAGE : BYTE, 
DBGSGL~CONVERT_TOKEN, 

DBGSGL “DEPOSIT TOKEN; 


1bBen-1964 4:24:56 


AX=11 Bliss-32 V4.0-74 
DEBUG. SRC JDBGLANVEC .B32; 1 


Obtain Length from VMS descriptor 
Evaluate operator expressions in 
current language 
Allocate permanent memory 
Allocate temporary memory 
Convert Primary Descriptor to 
S descriptor 
Convert Primary Descriptor to 
Value Descriptor 
Output an eggregate object 
Replacement 
prints an identifier. 
Print a value descriptor. 
Release memory 


Language code for current language 
Pointer to CONVERT token 
Pointer to DEPOSIT token 


ERAL 
MIN_LANGUAGE_CODE = MIN (DBGSK_PLI, DBGSK_PASCAL, DBGSK_COBOL), 
MAX-LANGUAGE~CODE = MAX (DBGSK"PLI, DBGSK~PASCAL, DBGS$K~COBOL): 


COPY _DESC_HEAD; 


Points to the header of a copied descriptor, 


if we are copying the descriptor into 


' porwonees memory. This is used by 
OPY_DESC_HANDLER. 


13 
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3 } 3 ! GLOBAL ROUTINE DBGSNGET_LVAL (PRIM_DESC, PARAM2, PARAM3) = 

; 9 | FUNCTIONAL DESCRIPTION: 

: 119 41 1: Obtains a symbol's lvalue using the rs descriptor for that 

oe 42 1! symbol. Note that most types of named constants do not have an 

3 118 45 1! lvalue. The debugger gives special treatment to weaned constants 

3 ae te ! } which have read only memory allocated to contain their value. 

5 115 46 1/ This routine is still called from DBGEXC, 

: 118 47 1! in the process of displaying “‘old value’, ‘‘new value’’ on watchpoints. 

: i 4 ; This routine can thus go away when DBGEXC is replaced by DBGEVENT. | 
; 113 i FORMAL PARAMETERS: 

: \ 1 § ; prim_desc - A longword which contains the address of a primary descriptor 
; 1 § 41! param2 - The address of a quadword fe contain the lvalue of the 
3; 126 5 1! a described by the primary descriptor and the bit 
. Saw 8 1! offset. if -- The byte address wi'l be contained in 
3 1% $ 1! in the first longword, the bit offset in the second 

3 ; 28 : } Longword. 

? § 60 1! param3 - The address of a longword to contain the address of 

3; 1 =a & @ message argument vector as described on page 4-119 

3 ; 1 o¢ : } of the VAX/VAS system reference, volume 1A 

; : 64 i IMPLICIT INPUTS: 

: 135 1: NONE 

7 5 1! 

ie 68 1 ! IMPLICIT OUTPUTS: 

; 138 1! 

; 139 Se NONE 

; 140 4a ky 

3 12) y : } ROUTINE VALUE: 

; 148 rR } An unsigned longword integer completion code 

: 145 u ! COMPLETION CODES: 

; 127 8 1! STSSK_SUCCESS (1) = Success. The object described by the input primary 

; 108 7 : descriptor has an lvalue which is being returned. 

: 139 ? ' STSSK_ERROR (2) = Failure. Object does not have an (value. 

; 138 5 1 | SIDE EFFECTS: 

; 1! 

; 138 5 : : NONE 

: 4 1! 

: i 3 BEGIN 

138 p 

3 169 ; PRIM_DESC : REF DBGSPRIMARY; ! Points to a new style Primary 

: 162 38 ! Descriptor. 
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BESEAAE BEELER, 
ag Mine COBGSB_DHDR_TYPE] EQL DBGSK_PRIMARY_DESC 
BEGIN 
Set up the VMS descriptor. 
VMS DESC = VMS_DESC_AREA; 
Call the routine that fills in the VMS descriptor. 


WMewn— S23 We 


PEVASISSIAONASSSLSS. 


= ¥ 

3 } 

ee 

s ¥ 

we 

s 1 

= ¥ 

', s 

.-3 

re 

eS 

a 

: 4 

3 1 4 } 

; ; % SOSCRARE WS JESS (.PRIM_DESC, .VMS_DESC); 

: 4 1 

& \§ ! Value descriptor or volatile value descriptor - we already 
. ; HF ; have a VMS descriptor. 

c-'¢ 15 ELSE IF .PRIM DESC CDOBGSB_DHOR_TYPE] EQL DBGSK_VALUE_DESC 

: 189 1 OR gPRIRL DESC CDBGS$B_DHDR_TYPE] EQL DBG$K_V_VACUE_DESC 

; 189 18 VMS_DESC = PRIM_DESC CDBGSA_VALUE_VMSDESC) 

3 189 o ’ } We do not expect any other kind of descriptor. 

: 191 ELSE 

‘ 13 6 § SDBG_ERROR (‘DBGLANVEC\DBGSNGET_LVAL unknown descriptor kind"); 
5 194 6 5 ! FILL in the output parameter to point to the 

; 122 0 § ' (byte address, bit offset) quadword in the VMS descriptor. 
: 199 0 § -PARARZ = .VMS_DESCCDSCSA_POINTER); 

: 199 3 RETURN STS&K SULCESSE 

: 200 83 1 1 END; : 


- TITLE errant thy 
-IDENT \V04-000\ 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


24 47 42 46 $$ 45 46 41 4C 47 $e 44 2F 00000 P.AAA: .ASCII \/DBGLANVEC\<92>\DBGSNGET_LVAL unknown d\ 
6F 6€ 6B 6€E 30 4C 4 56 4C SF 54 3 47 36 O00 
64 6€ 69 68 20 72 6F 74 70 69 72 83 § 65 0028 -ASCII \escriptor kind\ 


-PSECT DBGSOWN,NOEXE, PIC,2 


00000 COPY_DESC_HEAD: 
-BLKB 4 


~EXTRN DBGSDATA_LENGTH 
-EXTRN DBGSEVAL-LANG_OPERATOR 


GLANVEC 
vs 
00000079 +=&F 
0000007A 8F 
00000085 8F 


3; Routine Size: 


06 BC 


04 BC 
06 BC 
52 


98 bytes, 


000000006 00 


08 

08 

046 AC 
000000006 00 
50 

$8 

0 


Routine Base: 


-Sep-1 
1b-$e0- 


Oe Si 
11 3 0008 
$3 38h 
ma i Soa 
84 11 38 8 
10 fo O22 1$: 
% a 
LT a ae 
is ff ae 
00000000" EF 9F 00041 3$: 
0 DO 4-984 
00028362 F DD 00049 
03 fe 004F 
8 Ag 8 00036 4$: 
4 A D QO05A 
01 00 0005E 
04 00061 


DBGSCODE + 0000 


» “ef 
- ae ~EXTRN 


a 


“«PSECT 
-ENTRY 
2 


Ax-11 Ot i genre v4.0 
DEBUG. SRCJDBGLANVEC. “233. 31 


DBGSGET PERRY DBGSGET_TEMPMEM 

DBGSMAKE _V pes 

DBGSPR 

DBCSPR nT GOAL 

DBGSPRINT = IDENTSFIER 

DBGSPR VALUE 

SoesREL NREMORY DBG$GB_LANGUAGE 

DBGS$GL CONVERT. TOKEN 

DBGSGL-DEPOSIT- TOKEN 

DBGSCODE,NOWRT, SHR, 

a eal Save R2 
; #8, @PRIM_DESC, #121 

VMS =PES¢ AREA, VMS_DESC 

VMS pest 

PRIA D Sc 

#2, BRESMAKE _VMS_DESC 

#16, #8, @PRIM_DESC, #122 

#16, #8, @PRIM_DESC, #131 

#20, PRIM_DESC, VMS_DESC 


P.AAA 


PIC,0 


64706 
a LIBSSIGNAL 
4(VMS DESC), (RO) 
#1, RO 


Page 
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1 ~8ep-19 4 93:45:38 DEBUG. SRCJDBGLANVEC. $3.1 
GLOBAL ROUTINE DBGSNGET_TYPE (PRIM_DESC, PARAMZ, PARAM3) = 
i FUNCTIONAL DESCRIPTION: 


wn 


w 


Uses a —, gone Gescriptor to retrn type information. The 
m 


i 

oF types recognized are ted to three: 

09 § 1) . type named constant and instruction 

19 ? (lexical entities, Labels) 

1 § 2) - type named constant and 

\7 i noinstruction (symbolic Literals) 

iF $? 3) = type other 

i3 <3 This routine is still called from DBGEXC. 

8 rt It can go away when we convert over to the new DBGEVENT. 

, 29 FORMAL PARAMETERS: 

§ 53 prim_desc - A longword containing the address of a primary descriptor 
4 54 param2 - The address of a longword to contain an unsigned integer 
2 encoding of the symbol's type as follows: 

i $3 dbg$k_nc_instruction (125) - named constant, instruction 

; 35 dbg$k_nc_other (126) - named constant, noinstruction 

1 1 dbg$k_other (127) - other 

: : param3 - The address of a longword to contain the address of 

5 


@ message argument vector as described on page 4-119 
of the VAX/VAS system reference, volume 


w 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 


In case of a severe error return, a message argument vector is constructed 
from dynamic storage and returned. 


ROUTINE VALUE: 
An unsigned integer longword completion code 
COMPLETION CODES: 
STSSK_SUccESS (1) = Success. Type information recovered and returned. 


STSSK_SEVERE (4) = Failure. No type information recovered. Message 
argument vector constructed and returned. 


SIDE EFFECTS: 


me a a ee ak ed ed ed es = = = = 8 a a = ds = 


vou-000. 


SLSALAVLSS 


; Routine Size: 


Beton eeusat wets ete ate 
alge 


! For now, always return ‘OTHER’. This may not be completely 
i correct = we will fix it up Later. 


ARAM2 = DBGSK_OTHER; 
ae TURN STS$K_SUCCESS; 


SLSSFASLSS 
—rororororonon = 


0000 00000 -ENTRY DBGSNGET TYPE, Save nothing 
08 BC 7F «=6 BFS: 9A 0000 MOVZBL #127, @PARAM2. 
50 01 pO 0000 MOVL “i, RO 
04 0000A RET 


11 bytes, Routine Base: DBGSCODE + 0062 
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ooo 
DONOULS UT 
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GLOBAL ROUTINE DBGSNMAKE_VAL_DESC (PRIM_DESC, PARAMZ, PARAM3, PARAM4) = 


ee 


FUNCTIONAL DESCRIPTION: 


Translates enguege specific primary descriptors to language specific 


value descriptors. routine should be able 


access routines and the information contained within the 


use the — table 
rimary descriptor 


to yi oh a descriptor which represents a ‘value materialization’ for 


the ob 


nput object, or to decide when the value of an 
material 


a dynamic variable). 


ob 
zed (such as when the user's PC is not within the scope of 


ect represented by the input primary descriptor. 


Note that this routine must be able to use life-time, invocation, and 
generes fe information to produce an accurate value descriptor of 


the 
ect cannot be 


Value descriptors —— by this routine must be marked (within the 


type field of the 


anguage independent header block) as to whether 


they are non-volatile (dsc$k value desc) or volatile (dsc$k_v_value_desc). 
Volatile value descriptors will NOT be stored to represent "\", ‘Last value’. 


Since value descriptors may be used as target descriptors ( as input to 
dbg$npli_type_conv ), some provision must be made for incorporatin 
a value pointer field within the value descriptor. This type of value 


descriptor is loosely defined as a volatile type 


This routine is still called from DBGEXC in the 
watchpoint display. It can thus go away when DBG 
by DBGEVENT. 


E 


rocess of giving 
XC is replaced 


This routine call a language-specific routine based on the Language 


code in the descriptor header. 
FORMAL PARAMETERS: 


prim_desc - A longword containing the address of a primary descriptor 
param2 - A longword gentetatng boolean true or false. When true, 
the caller is requesting the construction of a value 


descriptor that can be used as a target descriptor for 
the type converter. The resulting value must therefore 
contain a pointer to the value of the entity described 
by the input orreary Cpsce jeter. Presumably, such a 


value descriptor w 


be of volatile type. 


param3 - The address of a longword to contain the address of the 


resulting value descriptor 


param4 - The address of a senquere to contain the address gt 
° 


message argument vec 


r as described on page 4-11 


the VAX/VMS system reference, volume 


IMPLICIT INPUTS: 
Depends on the lLanguage-specific routine. 
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IMPLICIT OUTPUTS: | 


—~ 
tt ee 


In case of a success return, the resulting value descriptor must be 
constructed from dynamic storage and returned. 


r~ 


In case of a severe error return, a message argument vector must be 
constructed from dynamic storage and returned. 


ROUTINE VALUE: 


= 


| 
An unsigned integer longword completion code | 
COMPLETION CODES: | 
STSSK_SUCCESS (1) = Success. Value descriptor constructed and returned. 
STSSK_SEVERE (4) = Failure. Value descriptor not constructed. Message | 
| 

| 

| 

| 


FUWIN "OC OCONOAUES WN OOM 
yt 


a 


argument vector constructed and returned. 
SIDE EFFECTS: 
NONE 
BEGIN 


P 
PRIM_DESC: REF DBGSPRIMARY; 
: Don't convert to value desc if the primary is an aggregate. 
iF .PRIM_DESC CDBGSV,DHDR_AGGR) | 
THEN 


PAAMAAVIUIUIVA & & 
DONO VEWN —"OVOONOu 


egg PARAS = -PRIM_DESC 
IF NOT DBGSPRIM_TO_VAL ( 
UF jARand THEN DBGSK_V_VALUE_DESC ELSE DBGSK_VALUE_DESC), 


ANNO PIAA 
BVOC NONE PODS NONE UI IO Oe iene ote ae 


OOO O09 000909000900 C9008 INI 


SDBG_ERROR (*DBGLANVEC\DBGSNMAKE_VAL_DESC bad return code from PRIM_TO_VAL"); 
A STSSK_SUCCESS; 


=NINPIPINININININININININININPINININID 9 9 = 9 SS 


RRRRRLLKLELLRLLELLRKKKKLT 


QESE 


-PSECT DBGSPLIT,NOWRT, SHR, PIC.0 


44 5C 43 45 i$ 4E $} BO30 P.AAB: .ASCII \=DBGLANVEC\<92>\DBGSNMAKE_VAL_DESC bad \ 


45 46 SF 4C 


ww 

o 

~ 
nxn SS 
on VIE 
orrf—t 
NOOSE S 
ouOo 


D 
; 004 
£ -ASCII \return code from PRIM_TO_VAL\ 


MmMmown 
MINDS 


VINNIE & 


DBGSCODE .NOWRT, SHR, PIC,0 


de ml 


; Routine Size: 


70 bytes, 


3 
BC 


oc 


73 

7E 
000000006 99 

1 


000000006 00 
50 


Routine Base: 


DBGSCODE + 006D 


pai9ee $2:47:01 — EDeauG. SR SDBGLANVEC-039; 1 


ENTRY DBGSNMAKE VAN DESC, Save nothing 


Otho De 


hss 2s 


B 
Bin nate =(SP) 
MOVZBL #122, -(SP) 


#3. DBGSPRIM_TO_VAL 
4 


8 P 
PUSHAB P.AAB 


Nn 13 
16-Se 
14-Se 
000 
S¢ AC DO MOVL 
4 AO E BLBC 
; 99 A MOVL 
BRB 
AC 3 10 1$: PUSHL 
AC § 1 LBC 
F 9A 0001 
4 11 dt B 
7A F 9A 00010 + + 
DD 00021 358: PUSHL 
g 4 $8 3 CALLS 
3 A LBS 
00000000" EF 9F 38 
1 0D 000 PUSHL 
00028362 F DD 000 PUSHL 
83 FB 000 CALLS 
1 00 Bho 4$: MOVL 
04 0004 RET 


#164706 
#3, LIBSSIGNAL 
#1, RO 


DBGLANYEC iSSeoct9Re 01:24:56 yAKeNT OLigs82 v4 O-7E 


, r 1 GLOBAL ROUTINE DBGSNTYPE_CONV (VALUE_DESC, PARAM2, PARAMS, PARAM4, PARAMS) = 
i 3 | FUNCTIONAL DESCRIPTION: 

; 74 § 1 i Performs language specific and yenguege independent type conversions. 
; 35375 1! These will be both internal-to-internal and internal-to-external in 

3; (ST 1! nature. Target may be described bY either Language 

3 37 i & specific value descriptor or a subset of VAX standard descriptors. 

3 ! The latter category includes the following: 

; : } dsc$k_dtype_v 

3 ¢ dsc$k_dtype_b, dsc$k_dtype_bu 

; : 1 : dsc$k_dtype_w, dsc$k_dtype_wu 

; $F 313 dsc$k_dtype_l, dsc$k_dtype_lu 

: 4 21$ ! dsc$k_dtype_q, dsc$k_dtype_qu 

3 ay 218 ! dsc$k_dtype_f, dsc$k_dtype_d 

; ; : Y : dsc$k_dtype_t 

; Be 2 ¢ : ; The source descriptor must be a language specific value descriptor. 

; 4 524 (1~ Note that this routine will be used to obtain the ‘printable’ (external) 
; 144 ; 5 : value of the source as the result of EXAMINE commands. 

: 399 5 ; 1 i This routine is still called from a couste of places; one is to 

; 400 528 1! convert the expression in an IF or a WHILE command to boolean; 

; 401 529 1! another is to display the value of watchpoints in ‘‘old value’, 

; 106 530 1! “new value" ote Ltys. (This second use of this routine will go 

3 tba ; 1 : away when DBGEVENT replaces DBGEXC.) 

; 405 3 $ i FORMAL PARAMETERS: 

3 407 535 1! value_desc - A longword which contains the address of 

; rts 2 ; : a language specific value descriptor 

; 410 5 3 1/ param2 - A longword containing an integer encoding of the radix 
3 213 27 : to be used when converting to a ‘printable’ value: 
; 418 541 } dbg$k_default (1) - source language default radix 

; 415 58 dbg$k_binary (2) - binary radix 

; ai? 348 : dbg$k_octal (8) - octal radix 

; ai 549 dbg$k_decimal (10) - decimal radix 

; 4 1 509 dbg$k_hex (16) - hexadecimal radix 

3 4 : 324 1 Note that this parameter is significant ONLY when the 
3 $24 236 1! object described by the source descriptor is to be 

; 425 7} converted to external format. A request for a Binary. 
; 426 554 1! octal, or hex ‘printable’ value means to consider the 
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1 =3007 138% 94:45:36 DEBUG. SRC Spec anver 03951 
value of source as a bit pattern to be translated to 
Spec te) characters, In this sense, the type of the source 
value is not significant - ony the Length. Values will 
therefore be displayed as unsigned integers within the 
specified radix. Values will be left-extended to nibble 
boundaries. 


param3 = A longword containing an unsigned {nteger encoding of the 
type of information contained within the target parameter: 
dbg$k_vax_desc (130) - target contains the address of a 

VAX standard descriptor 


Note: The caller of dbg$nxxx_type_conv 
must assure that the dsc$a_pointer 
field of the descriptor contains the 
address of an appropriately large 
block of storage. 


dbg$k_value_desc (122) - target contains the address of a 
language specific value descriptor. 
The type convertor deposits the 
value of Source into the address of 
the value in Target. 


dbg$k_external_desc (129) = target contains the address of 
a VAX standard string descriptor. 
This is a request to convert to 
‘printable’ format. Conversion must 
include check for unprintable characters. 


param4 - A longword which contains the address of either a VAX 
standard descriptor, or a language specific value descriptor 


param5 - The address of a longword to contain the address of 
a message argument vector as described on page 4-119 of 
the VAX/VMS system reference, volume 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 


When this routine is called to obtain the ‘printable’ (external) value 
of the source object, the target will contain the address of a VAX 
standard string descriptor with length and pointer fields set to 0. 

Dynamic storage must be obtained to contain the resulting ascii string. 


In all other cases, this routine is not required to allocate storage to 
contain the resulting value of a conversion request. Targets which are 
described by VAX standard descriptors MUST contain the address of a 
qrock of storage (the dsc$a_pointer field) 

n which the resulting value of the conversion will be stored. 


Dynamic storage must be used to construct the message argument vector 
upon a severe error return. 
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ROUTINE VALUE: 
unsigned integer longword completion code 
COMPLETION CODES: 


STSSK_SUCCESS (1) = Success. Conversion performed. 


STSSK_SEVERE (4) = Failure. No conversion. Message argument vector 
constructed and returned. 


SIDE EFFECTS: 


Informational messages such as string and number truncation may be 
ssued during processing. 


BEGIN 
SELECTONE .PARAM3 OF 
SET 


' One piece this routine is called is in the processing of the 

! IF, WHILE, and INCR commands, in order to convert the given 

' value to a type understood by the command. 

! In these cases, the third parameter is DBGSK_VAX_DESC and 

the fourth parameter is a pointer to a VAX standard descriptor. 
C 


DBGSK_VAX_DESC) : 
BEGIN 


LOCAL 
V.VAL_DESC: REF DBGSVALDESC; 


! Build a volatile value descriptor around the given VAX 
standard descriptor. 


V_VAL_DESC = DBGSGET_TEMPMEM (DBGSK_VALDESC_BASE_SIZE+4); 
CASMOVE (12, .VALUE BESC, .V_VAL_DESC); 
V_VAL_DESCCOBG$B_DHOR_TYPE = DBGSK_V_VALUE_DESC; 
V~VAL~DESCCDBGSW-DHDR“LENGTH] = 4 *~(BBGS$K VALDESC_BASE_SIZE+4) 
CASMOVE (12, .PARAM4,~V_VAL_DESCCOBGSA_VALOE_VMSDESCJ); 


: Call the EVAL_LANG_OPERATOR routine to do the conversion. 


DBGSEVAL_LANG_OPERATOR ( 
DBGSGL_CONVERT_TOKEN, 
. VALUE ~DESC 


-V_VAL DESC); 
END; 


! Another case is during the output of watchpoints in 
: “old value", “new value”. 


CDBGSK_EXTERNAL_DESC) : 
BEGIN 
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VALUE_DESC: REF DBGSPRIMARY; 
Check for aggregate. 
if g VALUE DESC CDBG$V_DHDR_AGGR) 


DBGSPRINT_AGGREGATE (.VALUE_DESC, .PARAM2) 


ELSE 


! This is kind of a kludge. We fill in 


Call the PRINT_VALUE routine 
DBGSPRINT_VALUE (.VALUE_DESC, .PARAM2, FALSE, FALSE); 


i and this indicates to 
; value has already been displayed. 


* PARAMS = 1; 
END; 


! I] don't 
is stilt used, so signal an internal DEBUG error. 


Ax-11 8B Ol igsnse vV4.0-74 
DEBUG. SRC DBGLANVEC.B 32;1 


a -1 to PARAMS 


he caller in DBGEXC that the 


think there are any other cases where this routine 


COTHERWISE) : 
$DBG_ERROR ('DBGLANVEC\DBGSNTYPE_CONV'); 


TES; 
RETURN STS$K_SUCCESS; 
END; 
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<24>\DBGLANVEC\<92>\DBGSNTYPE_CONV\ 


DBGSCODE,NOWRT, SHR, PIC,0 
DBGSNTYPE CONV, Save R2,R3,R4,R5,R6 
PARAMS, RO 

iy #50 


* EGscer eTENPREM 
Hi, va pest (V_VAL_DESC) 
a gt DéESC)~ 

fig. ap he DES _VAL_DESC) 


a ONVERT TOKEN 
DBGSEVAL _LANG_OPERATOR 
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BRB 5$ 

CMPL RO, #129 

BNEQ 

MOVL VALUE DESC, R2 

BLBC 4(R2)- 2 

PUSHL PARAM? 

PUSHL R 

CALLS #2, DBGSPRINT_AGGREGATE 
CLRQ 0s = SP) 

PUSHL PARAM2 

PUSHL R 

CALLS #4, DEGSPRINT_VALUE 
MNEGL #1. @PARAM 

BRB $ 

PUSHAB P.AAC 

PUSHL 

PUSHL #164706 

CALLS #3, LIBSSIGNAL 

ROVE #1. RO 
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vive 12286871382 9:95:38 DEBUG. SRC Seer ANVEr.039:1 ; oe (7). 
: y } GLOBAL ROUTINE DBGSNSYMBOLIZE (PRIM_DESC, PARAM2, PARAM3) = 
; tf 1 | FUNCTION | 
3 1: Prints the name given by the primary descriptor, in the 
; $7 1! appropriate language format. This routine actually just 
; $7 e 1 posses the descriptor along to the new routine 
: f 5 : ; BGSPRINT_IDENTIFIER. 

; ; ! FORMAL PARAMETERS: 

; § § 1/ PRIM_DESC - A longword containing the address of a language specific 

; 19 } } primary descriptor 

; 585 1g } PARAM2, PARAMS = Unknown to this routine | 
; 4 1% { IMPLICIT INPUTS: | 
; 589 16 1 i NONE | 
; 590 7 1! 
3 4 : } IMPLICIT OUTPUTS: 
: 59 720 ] i Same as the invoked routine 
; 5946 721 : 
; 95 f g : ROUTINE VALUE: | 
; $7 q : : Same as the invoked routine 
; 599 726 i COMPLETION CODES: | 
; 600 7 1! 
; $8) f 8 ; : Same as the invoked routine 
: 808 730 1 SIDE EFFECTS: | 
; 604 731 1! 
; 605 4 § : : Same as the invoked routine. 
; isd 734 1 This routine will generate a@ SIGNAL upon detection of a foreign 
3 os y 5 ! Language value within the primary descriptor. | 
; 610 F392 BEGIN | 
; 611 738 DBGSPRINT joer it ite (.PRIM_DESC); 
; oi¢ 0739 RETURN STSS$K_SUCCESS; 
3 61 0740 END; 


0000 000 ENTRY DBGSNSYMBOLIZE, Save nothing ; 06 
04 ac OD PUSHL PRIM ; 0738 
000000006 90 ot FB 0 CALLS #1, BRCSPRINT IDENTIFIER : 
1 C MOVL #1, R ; 0739 
4 F RET : 0740 


; Routine Size: 16 bytes, Routine Base: DBGSCODE + 0141 
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-Sep-1 DEBUG.SR 


GLOBAL ROUTINE DBGSNGET_PAGES (PRIM_DESC, PARAM2, PARAM3) = 


'e4 
! FUNCTIONAL DESCRIPTION: 

i Uses a syabel's gr iaery descriptor to construct a Linked List of page 
numbers which reflect those pages of storage in which the symbol 's 
rvalue is contained. Note that the pages may be non-contiguous. 


A page number is represented by the high order 23 bits of a irt al 
eteress, with the (ow order 9 bits set te 0: < iat 


page = (virtual__address AND 8°11111111111111111111111000000000") 

At implementation level 2, 

This routine calls a language-specific routine depending on the language 
code in the header of the descriptor. 


At implementation level 3, the descriptors are the same so the 
work is done right here. 


FORMAL PARAMETERS: 
prim_desc - A longword containing the address of a primary descriptor 
param2 - The address of a longword to contain the address of the 
head node in the page List. Nodes in the page List 
consist of blocks of two longwords each. The second 
longword of the node block contains a page number on 
which some portion of the symbol’s rvalue resides. The 
first longword of the node block contains the address 
of the next node in the List. The last node in the List 
should contain a 0 in this Link field. 
param3 - The address of a longword to contain the address of 
@ message argument vector as described on page 4-119 
of the VAX/VAS system reference, volume 1A 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 


In case of a success return, the page list is constructed from dynamic 
storage and returned. 


In case of a severe error return, a message arguement vector is constructed 
and returned. 


ROUTINE VALUE: 
An unsigned integer longword completion code 
COMPLETION CODES: 
STSSK_SUCCESS (1) = Success. Page List constructed and returned. 


at ee Ph ee 


aes ICRESHORE DRE HOUSE SAMS eT. 
STSSK_SEVERE (4) = Failure. Ae List not constructed. Message argument 
vector constructed and returned. 
SIDE EFFECTS: 
NONE 
BEGIN 


1 8 
8 P 
4 33 PRIM_DESC: REF DBGSPRIMARY; 
5 811 LOCAL 
aig BIT_LENGTH ! Length of data in bits 
ret sz CURRENT _BLOCK: REF DBGSLINK_NODE, } parevey So current page 
! number bloc 
689 815 CURRENT _PAGE_ADDRESS, ! A page address 
690 318 END_A ° ' Last page address 
691 81 NEXT_BLOCK: REF DBGSLINK_NODE, ' Pointer to the next page 
24 313 oes ! number block 
694 820 VMSDESC: REF DBGSSTG_DESC 
699 8 1 VMS-DESC_AREA: DBGS$STG_DESC; 
ge 8 5 } For volatile value descriptors we already have a vms desc. 
699 H 5 iF .PRIM_DESC COBGSB_DHDR_TYPE) EQL DBG$K_V_VALUE_DESC 
0 : $ OR  _PRIA_DESC DBG$B_DHDR_TYPE] EQL DBGSK_VALUE_DESC 
70 : 8 VMS_DESC = PRIM_DESC CDBGSA va VMSDESC] 
At, 3 4 it +4 IF .PRIM_DESC CDBG$B_DHOR_TYPE EQL DBGSK_PRIMARY_DESC 
Ait 831 BEGIN 
70% é : Turn the primary descriptor into a VMS descriptor. 
709 835 VMS_DESC = VMS_DESC_AREA; 
; iF not DBGSMAKE_VMS_DESC (.PRIM_DESC, .VMS_DESC) 
S3 SDBG_ERROR ("DBGLANVEC\DBGSNGET_PAGES'); 


; 700 


ELSE 
SDBG_ERROR (*DBGLANVEC\DBGSNGET_PAGES'); 


! The first address is given in the VMS descriptor. The end address 
: must be computed from the bit length and the bit offset. 


CURRENT _PAGE_ADDRESS = .VMS_DESCCDSCSA_POINTER] AND %X'FFFFFEOO'; 
BIT LENGTH ="DBGSDATA_LENGTA (.VMS DESC); 
If [VMS_DESCCDSC$B_CLASS) EQL DSC$R_CLASS_uBS 


POS = .VMS_DESCCDSC$L_POS) 
ELSE 


POS = 0; 
END_ADDRESS = .VMS_DESCCDSCSA_POINTER] + (.BIT_LENGTH + .POS = 1)/8; 
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53 45 
00000083 8&F 06 BC 
0000007A = BF 04 BC 
52 
00000079 = &F 06 BC 


HbrSepn 196s 01:24:56 YAN-T OLis8=82 y4.0-742 
Loop through the pages. 


CURRENT BLOCK = 
WHILE, .f CURRENT = PAGE ADDRESS LEQ .END_ADDRESS DO 


! Allocate space for a new node. Fill in the et field 

! and Link it in to the List (the List is actual x pees 

: sonaerastee backwards). Increment CURRENT_PAGE_ADDRESS to 
5 the next page and loop. 


T_BLOCK = GSGET, TERPHEN (D GSK _LINK_NODE_SIZE); 
NEXT =BLOCK DBGSL LINK] = [CURRENT BLOCK; 
NEXT DBGSL +i. “NODE VALUE) = CURRENT? PAGE ADDRESS; 
CURRENT mt OCK = [NEXT~BLOC 
CURRENT - PAGE_ADDRESS = CURRENT _PAGE_ADDRESS + 512; 


, Return the address of the Last block. 


ARAM2 = ,CURRENT BLOCK; 
ae TURN STS$K_SUCCESS; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC.0 


5 4—E 41 4C 47 rt 44 18 00087 P.AAD: .ASCII <24>\DBGLANVEC\<92>\DBGSNGET_PAGES\ 
4 41 50 SF 54 4 47 1 000 
5 4E 41 4C 47 +g 44 «1 4 reg P.AAE: .ASCII <24>\DBGLANVEC\<92>\DBGSNGET_PAGES\ 
4 41 50 SF 54 4&4 47 4E OOAF 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
0016 90000 ENTRY DAGSNGET_ PAGES, Save R2,R3,R4 
5E oc ¢ 9002 SUBL2 
08 10 FD 9005 CMPZV #6, #8, @PRIM_DESC, #131 
08 Ag + O08 a #16, #8, @PRIM_DESC, #122 
04 AC $3 cf 18 1$: poets $50, PRIM_DESC, VMS_DESC 
08 10 Fo 6 4 28: CMPZV #16, #8, @PRIM_DESC, #121 
$2 $f 9E MOVAB VMS_DESC_AREA, VMS_DESC 
DD PUSHL VMS arse: 
04 AC OD PUSHL PRIA 
000000006 00 05 FB CALLS 2, pacshane_ VMS _DESC 
1D f F BLBS 
00000000' FF oF 4g PUSHAB  P pe kad 
00° F OF 4A 3%: PUSHAB as 
ene ¥ DD 00050 4$: PUSHL #i 


roe 


j 
| 
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3; Routine Size: 


54 
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181 bytes, 


Routine Base: 
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PUSHL 
CALL 
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Foted-f=¥ 4 


Won ro 
azo 


#164706 

in LIBSSIGNAL 

on 4(VMS_DESC), CURRENT_PAGE_ADDRESS 
a “DBGSDATA_LENGTH 
(VMS. DESC), "#13 


Bums bese, POS 


POS 
-1(POS)CBIT_LENGTH], RO 


R 
4(VMS DESC), RO, END ADDRESS 
CURRENT _ 
sper, PAGE _ADDRESS, END_ADDRESS 


ae 
DBGSGET_TEMPMEM 
tuRRE NT BLOCK. | (NEXT_BLOCK) 
(CURRENT. PAGE_A spResSoe 4(NEXT_BLOCK) 
NEXT BLOCK, EORRENT T_BLOCK 
504(R4), CURRENT PAGE ADDRESS 


CURRENT _BLOCK, @PARAM2 
#1, RO 
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; f ! GLOBAL ROUTINE DBGSNGET_LENGTH (PRIM_DESC, PARAM2, PARAM3) = 

; 736 i FUNCTIONAL DESCRIPTION: 

PF 1/ Uses a symbol's ervaery descriptor to obtain the length of the symbols 

Ne 4 1! rvalue. The length is to be given in bits. Lengths longer than 2 ** 32 

: ren 5 : : must be truncated to this length. 

: 76 1/ The debugger assumes that rvalues refer to contiguous blocks of storage. 

3 rer tt] ; : If this is not true for a given variable, this routine fails. 

: 765 90 1! Length sheyle reflect the maximum length for entities that may vary in 

; £e 4! : : size, and include the length of a control word, if one is present. 

: 768 38 1/ If the value of the object can not be materialized by the Type Convertor 

; 769 96 1! (DBGSNTYPE_ CONV), this routine should return STSSK_INFO. This is 

; 770 95 1! generally true for objects of aggregate type. e.g., PASCAL arrays and 

; 44 Bae ; record, PL/I structures. 

: 77 0898 1/ This routine calls a language-specific routine based on the Language 

3 ae 4 ; code in the descriptor header. 

; a 901 i FORMAL PARAMETERS: 

; 44 4 0308 : prim_desc - A longword containing the address of a primary descriptor 
: 780 0905 1! param2 - The address of a longword to contain an unsigned integer 
3 re 844 ; lLongword representing the symbol’s rvalue length in bits 
; 78 0908 1! param3 - The address of a longword to contain the address of a 

3; «784 3484 1! message argument vector as described on page 4-119 of 

; A ¥ Bare ; } the VAX/VMS system reference, volume 1A 

; ro o91¢ i IMPLICIT INPUTS: 

; 788 13 1! 

; 789 141! NONE 

; 790 915 1! 

3; 791 zis 1 ! IMPLICIT OUTPUTS: 

; 79 34 1! 

; 918 1! In case of a severe error return, a message argument vector is constructed 
3: 794 0919 1! from dynamic storage and returned. 

; 795 0920 1! 

: re +4 1 ' ROUTINE VALUE: 

: 798 § : An unsigned integer longword completion code 

; 00 925 1 i COMPLETION CODES: 

3 802 H $ ‘ STSSK_SUCCESS (1) = Success. Length of symbol’s rvalue returned. 

: $ 1/ STS$K_INFO (3) = Success. Length of the symbol's rvalue returned but 

3 5 1: the symbol refers to a value that the Type Convertor 

3 06 1 : : cannot materialize. 

; 08 j 1! STSSK_SEVERE (4) = Failure. No length returned. Message argument vector 

: 4 9 : : constructed and returned. 
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! SIDE EFFECTS: 


NONE 
BEGIN 
AP 
,PRIM_DESC: REF DBGSVALDESC; 


VMS_DESC, 
VMS_DESC_AREA: DBGSSTG_DESC; 
: Primary Descriptors. 
co ee CDBGSB_DHDR_TYPE] EQL DBGSK_PRIMARY_DESC 
BEGIN 
Call a routine to construct the VMS descriptor. 


VMS_DESC = VMS_DESC_AREA; 
IF ROT DBGSMAKE_VMS"DESC (.PRIM_DESC, .VMS_DESC) 


a SDBG_ERROR (*DBGLANVEC\DBGSNGET_LENGTH"); 


Volatile Value Descriptors or Value Descriptors. 
ELSE IF -PRIM_DESC CDBGSB_DHOR_TYPE] EQL DBGSK_V_VALUE_DESC 
OF EP RIM_DESC COBGSB_DHDR_TYPE] EQL DBGSK_VALUE_BESC 
! In this case just get the VMS descriptor out of the 
volatile value descriptor. 
VMS_DESC = PRIM_DESC CDBGSA_VALUE_VMSDESC) 
We do not expect any other kind of descriptor. 
ELSE 
SDBG_ERROR ("DBGLANVEC\DBGSNGET_LENGTH unknown descriptor type’); 
! Call the routine in DBGVALUES that extracts a bit length from 
: a VMS descriptor. 


.PARAM2 = DBGSDATA_LENGTH (.VMS_DESC); 
oe runes STS$K_SUCCESS; 


-PSECT DBGSPLIT,NOWRT, 


00c8 


Mm 14 
16-Sep-19 2246:5 AX-11 Bliss-32 V4.0-74 
13-808- 1382 94:45:36 DEBUG. SRC JDBGLANVEC .832;1 


SHR, PIC,0 


5C 43 45 56 ri 41 4C 47 4 44 19 90088 P.AAF: .ASCII <25>\DBGLANVEC\<92>\DBGSNGET_LENGTH\ 
48 54 47 4E 45 4C SF 54 45 47 4E 


a _—— — 


N14 

DBGLANVEC 16-Sep-1984 01:24:5 AX-11 Bliss-32 V4.0-74 Pa 4 

vitae 13-808-138e 94: 48:3 DEBUG. SRC JDBGLANVEC .832;1 - (3 

| 

246 47 42 464 SC 43 45 56 GE 41 4C «7 42 44 31 D3 P.AAG: .ASCII \1DBGLANVEC\<92>\DBGSNGET_LENGTH unk XR 3 
6B 6E $8 20 is 54 47 4E 45 4C SF 54 eg rh 4E a0e2 as pyro s 
70 79 74 20 72 6F 74 70 69 72 63 § 65 64 25 sth «ASCII \ descriptor type\ : 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


0004 000 -ENTRY DBGSNGET_LENGTH, Save R2 ; 0879) 
4 o¢ C2 0000 SUBL2 #12, SP : 
00000079 =«&F 04 BC 1 FD 9005 CMPZV #16, #8, @PRIM_DESC, #121 : 0951 | 
52 gf 9E 00011 MOVAB VMS_DESC_AREA, VMS_DESC + 0957) 
52 DD 00014 PUSHL VMS~DESC : 0958 | 
04 AC DD 00016 PUSHL PRIM_DESC 3 
000000006 00 08 FB 00019 CALLS #2, BBGSMAKE_VMS_DESC : 
C 5 E 69020 BLBS RO, 5$ : | 
00000000' gr F 000 PUSHAB P.AAF + 0960 | 
5 11 00029 BRB 4$ ; | 
00000083 =&F 046 BC 08 10 FD 900 : 1$ CMP ZV #16, #8, @PRIM_DESC, #131 > 0965 | 
Q000007A 8F 046 BC 08 49 FD 90037 CMPZV #16, #8, @PRIM_DESC, #122 3 0966 | 
52 04 Ac 14 C1 boods 28: ADDL3 #20, PRIM_DESC, VMS_DESC : 0972 
15 11 00048 BRB 5$ : 
00000000° FF 9F 0004A 3S: PUSHAB P.AAG : 0977 
1 DD 00050 4$: PUSHL : 
00028362 8F ODD 90058 PUSHL #164706 : 
000000006 00 03 FB 0005 CALLS #3, LIBSSIGNAL : 
52 DD 0005F 5$ PUSHL VMS_ > 0983 | 
000000006 00 01 FB 90061 CALLS #1, DBGSDATA_LENGTH ; 
08 BC 50 pO 00068 MOVL RO. @PARAM2 : | 
50 01 DO 0006C MOVL #1. RO > 0984 
04 0006F RET > 0985 | 


; Routine Size: 112 bytes, Routine Base: DBGSCODE + 0206 


; 865 
t Ber 
: BF 

3 7 

3 7 

3 73 
3 7 

; 875 
3 7 

3 7 

3 7 

3 7 

ets 
ie 
: Bm 
ae, 
: $88 
; 889 
; 890 
3 91 
3 9 

3 9 

: 894 
; 95 
i $99 
3; 898 
& 
3 901 
: 308 
: 904 
: 8 
; 90 

: 306 
; 910 
a 
; 31 
2 
: 31S 
; 918 
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GLOBAL ROUTINE DBGSNCOPY_DESC (DESC, PARAM2, PARAMS, PARAM4) = 


FUNCTIONAL DESCRIPTION: 


Accepts as input a janguage specific primary or value descriptor 


(constructed from 


sted storage) 


and makes a copy of the descriptor out of non-listed storage. This 


eta a ba My will be stored in con 


current location. 


unction with x-points and 


This routine may use DBGSNCOPY to copy each portion of the 
descriptor that has been created from Listed dynamic storage. 


FORMAL PARAMETERS: 
desc 


param2 
param3 
params 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 


- The address of a language specifc primary or 
value descriptor 


- The address of a longword to contain the address 
of the non-volatile copy of the descriptor 


- The address of a longword to contain the address 
of a message argument vector for errors 


- A flag saying whether to copy into permanent 
memory or temporary rk nly used in 
implementation level 3. 


On success, the non-volatile copy of a primary descriptor. 


On failure, a message argument vector. 


ROUTINE VALUE: 


An unsigned integer longword completion code 


COMPLETION CODES: 
STSSK_SUCCESS (1) 
STSSK_SEVERE (4) 


SIDE EFFECTS: 
NONE 
BEGIN 


MAP 
DESC: REF DBGSVALDESC; 


- Success. Copy constructed and returned. 


- Failure. Copy not produced. Message argument 
vector constructed and returned. 


rane 3S 


| 
i 


c— 


A  - 
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3 9 1 BUILTIN 

; } ACTUALCOUNT; ! Count of acual parameters. 

; 1046 CAL 

3 104 LENGTH, ! Length in bytes of copy 

3 4 1 PERM_FLAG; ! Flag saying whether to copy into permanent 
; 4 5 : : or temporary memory. 

: 9 ; 1 2 ! Enable a handler which will take care of NOFREE error messages. 

; 9 1 26 ! The reason for this is, if we run out of memory part way through 

3 9 1 ! copying the descriptor, then we want to release the memory we 

: 4 : } : have allocated so far, so that it does not get lost forever. 

: 9 1 1056 ENABLE 

3 4 ! 5 COPY_DESC_HANDLER; 

; 935 1 25 ! Default the fourth parameter to TRUE. 

3 4 ! $9 } Also initialize the pointer to the new descriptor header. 

: 9 1 64 if ACTUALCOUNT() LSS 4 

; 939 1 

; 940 1064 PERM_FLAG = TRUE 

3; 941 1065 

5 arg 1 PERM_FLAG = .PARAM4; 

; ot 524 COPY_DESC_HEAD = 0; 

: 945 1069 ! Compute the number of bytes to allocate. Always allocate 

3 ace tA at least 16 + base size of value descriptor. 

: 948 107@ LENGTH = .DESCCDBGSW_DHDR_LENGTH); 

; 969 1073 IF jLencta LSS 16 + SeDBGSK_VALDESC_BASE_SIZE 

; 931 1975 LENGTH = 16 + 4®DBGSK_VALDESC_BASE. SIZE; 

; 338 1979 CASE .DESC COBG$B_DHDR_TYPE] FROM DBGSK_LITERAL TO DBGS$K_V_VALUE_DESC OF 
Ms . 

: 956 1080 ! Ordinary value descriptors. These have the actual value embedded 

3; 957 1081 ! inside them. Copy the descriptor and fix up the pointer field 

: 958 1956 ! so it points to the right place. 

; 959 1 : 

; 960 1084 CDBGSK_VALUE_DESC): 

; 961 1085 BEGIN 

3 366 19 § MA 

:; 96 1 DESC: REF DBGSVALDESC; ! Pointer to a new style value 

; 964 18 8 ; descriptor (the original) 

: 965 1089 LOCAL 

3 4] 1090 DESC_COPY: REF DBGS$VALDESC; ! Pointer to a new styie value 
; 96 1091 ! descriptor (the copy). 
; 968 1 5 

; 969 ; IF .PERM_FLAG 

; 44 1095 i sereSt=tOPY = DBGSGET_MEMORY ( (3+. LENGTH) /4) 

: 378 1 33 DESC_COPY = DBGSGET_TEMPMEM ((3+.LENGTH)/4); 

3 «974 1 38 CHSMOVE T. escipessy DHBR_LENGTH], .DESC Agi? COPY); 

3; 975 1 DESC_COPY CDBGS$L_VALOE_POINTER) = DESC_COPY DBGS$A_VALUE_ADDRESS); 


5 


D1 
1 3ep-198e 92:99:09 — Eotaue.gheispecawver.ogs;1 8B 


pee an C 
1 
75 


sPARAM2 = .DESC_COPY; 
END; 


nT 


! Volatile value descriptors. These point to a region of user 
! memory eae the value. We do the same as above except 
x 


3 1 5 i that we do not up the pointer field. 

9 ; CDBGSK_V_VALUE_DESC): 

one BEGIN 

eae DESC: REF DBGSVALDESC; ! Pointer to a new style value 

38 etn : descriptor (the original) | 
9 § DESC_COPY: REF DBGSVALDESC; Pointer to a new style value 


descriptor (the copy). 
IF .PERM_FLAG 
DESC_COPY = DBGSGET_MEMORY ((3+.LENGTH)/4) 


DESC_COPY = DBGSGET_TEMPMEM ((3+.LENGTH)/4); 
cusmOvE T.DESCCDBGSW_OHBR_LENGTHJ, .DESC, .DESC_COPY); 
-PARAM2 = .DESC_COPY; 


END; 


! New style Primary Descriptors. Here we have to copy the root 

! mode and all sub-nodes. Note that we have to do this carefully, 
! in such as way that at any time we call GET_MEMORY, we must 
! have a valid (though partially constructed) Primary. This is 

! in case GET_MEMORY signals a NOFREE error message - we want 
' to be able fo release the storage we have allocated up 
to the point of running out of memory. 
C 


DBGSK_PRIMARY_DESC): 
BEGIN 


IAPORORORORORONONOnUn) | 2 3 


AME WR OO OOVNAUE WIN 9 OO NAVE WN 0 OONO UE WN  O ONO UE WR O00 


SEEPS EERE ER EEE: 


ec ee me ee ee ae ed ed ed dd ed dd ed 
ee ee ec ee ee em ee ee ee ee ed ae ed od od ed dd dd dd dd 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1010 

1011 

Ha P 

101 DESC: REF DBGSPRIMARY; ! Pointer to the Primary 
1014 : : Descriptor to 
1015 : be copied. 
1918 4 LOCAL 

101 4 DESC_COPY : REF DBGSPRIMARY, ! Pointer to the copy 
1018 4 : of the Primary 
1019 4 : Descriptor. 

1 so 4 DIMCNT 

1021 4 NEW_SUBNODE: REF DBGSPRIM_NODE, ' Pointer to a copy of 
10 § 4 ! a subnode 

9 4 NUMBLKS 

1024 4 PREV_SUBNODE: REF DBGSPRIM_NODE, ! Pointer to a copy of 
1025 4 : a subnode 

1 § SIZE, ! Size of a subnode 

1 SUBCNT 

1028 SUBNODE: REF DBGSPRIM_NODE; '! Pointer to the original 
+ 9 ; : subnode. 

1 1 ! Allocate memory for a new root node and copy the 

1032 5 ' values into it. We will fix up forward and back 


leit O}:R4:8t  YAUSILSLissed2 MGefn743., Pane 38 
Links later. 
iF gPERM_FLAG 


we 


BEGIN 
DESC_COPY = DBGSGET_MEMORY (DBGSK_PRIMARY_SIZE); 


! Put a Pet NaN to the Primary in this own variable so 
COPY_DESC_HANDLER can Later free up the storage. 


s- DESC_HEAD = .DESC_COPY; 
st esc pe = DBGSGET TEMPMEM (DBGSK_PRIMARY + Fh 
CHSMOVE T4*DBGSK_PRIMARY_SIZE, .DESC, <DESC_COPY) 
! Fix up the forward and back Links so we have a valid partially 


WONAUES WN OVONOUE WN OUO@ 


3 1 11 

3 1 11 

3 1 11 

3 1 11 

31 1161 4 

3 1 11 4 

3 3 11 4 

31 1164 4 

31 1165 4 

31 1166 4 

3 1 11 4 

31 11 

3 11 

i] } 

31 11 
4 1 11 } 
; 105 11 i sonetrusted Primary - i.e., we do not want to leave them pointing 
3 198 1] to the original Primary. 
: 105 11 DESC_COPYCDBGSL_PRIM_FLINK] = DESC_COPYCDBGSL_PRI M_FLINK]; 
; 105 i DESC-COPYCDBGSL_PRIM-BLINK] = DESC~COPYCDBGSL—PRIM-FLINKJ: | 
; 132 i Loop through each of the subnodes. 
: 105 1 SUBNODE = .DESC CDBGSL_PRIM_FLINK]; | 
> 105 11 PREV_SUBNODE = 0; | 
: 1060 11 WHIL E “SUBNODE NEO DESCCDBGSL _PRIM_FLINK] DO 

O62 1186 _ 

; 1968 1 i ? Allocate space for the new subnode. 
; 1086 1189 4 if; SUBNODE CDBG$B_PNODE_FCODE] EQL RSTSK_TYPE_ARRAY | 
: 106 1191 BEGIN | 
3 1068 1138 3 ! Use larger of SUBCNT, DIMCNT. 
> 1069 119 SUBCNT = .SUBNODECDBG$6_PNARR_SUBCNT); 
: 1070 1194 DIMCNT = .SUBNODE DBGSB PNARR~DIMCNTJ; | 
: 1071 1195 IF .SUBCNT GTR .DIMCNT | 
:1 2 1196 N 
: 1075 119 eu seems = ,SUBCNT | 
; 197 1199 NUMBLKS = .DIM | 
; 1076 1 90 SIZE = DBGSK PRIM sti 

3 ! i 1 4 al DBGSK_PRIM ste. *SUBS®. NUMBLKS; 

; 1978 08 4 ELSE If .SUBNODE COBGSB_PNODE_FCODE] EQL RSTSK_TYPE_RECORD | 
; 1081 1 8 4 SIZE = DBGSK_PRIM_SIZE_RECORD 

31 : 1 06 4 ELSE IF .SUBNODE~COBGSB_PNODE_FCODE) EQL RSTSK_TYPE_VARIANT 

; 1083 1 4 THEN 

3 4 4 evsesize = DBGSK_PRIM_SIZE_VARIANT 

31 1 10 4 SIZE : DBGSK_PRIM_SIZE_NORMAL:; 

; ! ‘ If gPERA_ LAG 

: 1 1 ig 4 N NEW. SUBNODE = DBGSGET_MEMORY(.SIZE) 


F 15 


ELSE 
NEW _SUBNODE = DBGSGET_TEMPMEM(.SIZE); 


Copy the values. 

CHSMOVE (4*.SIZE, .SUBNODE, .NEW_SUBNODE); 

if -PERM_FLAG AND (.SUBNODE COBGSB_PNODE_FCODE] EQL RSTSK_TYPE_VARIANT) 
NEW_SUBNODECDBGSV_PNVAR_VALID) = FALSE; 

} Fill in the forward and back Links. 

If .PREV_SUBNODE EQL 0 

THEN 


SZzFSIZIES 


BEGIN 
DESC_COPY (COBGSL pate FLIN 
NEW. “COPY “Ebeest M"BLIN 


NEW. “SUBNODE COBGSL—PNODE-B 
ELSE 
BEGIN 
PREV_SUBNODE CDBGSL_PNODE FLINK] = .NEW_SUBNODE; 
DESC” COPY bb cst oP PRIM BLINK] = .NEW SUBNODE; 
NEW_SUBNOD BGSL * NODE _FLINK) = DESC_COPY CDeGSA_ PRIM_FLINK); 
NEW SUBNODE pecs “PNODE_BLINK] = .PREV_SUBNODE; 


PREV SUBNODE = .NEW_SUBNODE; 
putes = "SUBNODE CDBGSL_PNODE_FLINK]; 


= .NEW_ cap est fe 
= .NEW NODE; 
my = peste COPY CDBGSA_PRIM_FLINK] 
NK] = DESC “COPY DAGSA_ PRIM “FLIN NK] 


7 


K 
K 
L 
L 


-PARAM2 = .DESC_COPY; 

END; 
! At implementation level 3, we do not expect any other kind 
of descriptor. 


CINRANGE OUTRANGE): 
$DBG_ERROR (*DBGLANVEC\DBGSNCOPY_DESC'); 


TES; 
H The copying has been done. Return success. 
RETURN STS$K_SUCCESS; 
END; 


ek a a aa a a a a ed a et = 2 = 2 a 4 0 2 = 1 


a ee a ek ke ee a nd ed od od = wd = dd 


KALUSLSSSVRARANSLS SOUS ARUWASSRUSAE AVS 


a aa a a at at = a 8 = = = = 2 2 2 2 SS 2 SS Ls ss Ls 


SLA LALA MIL EE EEE SEES SRAM ARNININUINVINUNNN 33 SS 
CODWNANEWN 0 OONOUES WN 0 ODNAUNEWWN OO OONOUEWWN OO ONOUE 


= POIPIMIRINININIPIDINIAPIPIAII HE BB IIS STII BB PE PEP LLL EE 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


24 47 42 44 SC 43 45 26 4—E 41 $f 47 42 44 18 60199 P.AAH: .ASCII <24>\DBGLANVEC\<92>\DBGSNCOPY_DESC\ : 
43 535 45 44 SF 59 50 4F 43 4E 114 


vOe=000. 1eaRepal9be $2:73:09 — Eokave.SacSoaccamvécsass:1 = 788° 48). 
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«PSECT DBGSCODE,NOWRT, SHR, PIC,0 


OFFC 00000 ENTRY p GSNCOPY DESC. Save R2,R3,R4,R5,R6,R7,RB,- ; 0986. 

SE 16 ¢2 : susL2 #26, sb : 

6p O1A7,—s CF DF MOVAL 328, (FP) : 1038 

4 : ; A CHP (APS, #4 : 1062 

6E i 06 OF MOVL a. PERM_FLAG + 1064 | 

6E 10 AC DO 00014 18:  MOVL. ~=—Ss« PARAM, PERM FLAG > 1066 | 

00000006" EF 04 00018 2$: CLRL = COPY_DESC_HEAD : 1967 

8 4 AC Bd 1 MOVL OD $C R t 1072) 

9 § C 000 MOVZWL (R115, LENGTH : | 

i 0 3 cHPL NGTH, #4 ; 1073) 

0 DO 0002A MOVL #48, LENGTH | 75 | 

0B 78 A 02 AB 8&F 000 p 3$: CASEB g(Rit), #120, #11 : 199? 
0018 002F 0085 001 0033 4$: <WORD 5$-4$,- : 
001 0018 0018 01 00 8 4$-4$,- : 
005A 001 001 0018 004 $-48,- : 

- * Z | 

5$-4$.- : 
$-4$.- : 

$-4$,- 3 | 

5$-4$,- : 

5$-4$.- : | 

5$-4$,- 3 

gts Be 

00000000" EF 9F 00048 5$ PUSHAB P.AAH : 1253) 

1 DD 00051 PUSHL ; 
00028362 8F DD 00053 PUSHL #164706 ; 

000000006 00 3 FB 00059 CALLS #3, “LIBSSIGNAL : | 

38 4 £8 O08 = Dive Ag Ro : 1095 | 

0B gf £8 0068 BLBC PERM_FLAG, 7$ : 1093, 

DD 00068 PUSHL RO 1095 | 

000000006 00 1 Fe 6p CALLS #1, DBGSGET_MEMORY : | 

8 bp 90076 7$ ereu ORG 1097, 

000000006 00 Q1 F 8 CALLS #1, DBGSGET_TEMPMEM : | 

é 0 7F 8$ MOVL. RO. DESC FOBy ; | 

66 68 68 2 MOVC3 (R11), (R11), (DESC_COPY) : 1098 | 

18 Ab 20 A6 i 0 v 32(R65, 24(DESC_COPY) : 1099 | 

4 11 000 12 : 1100 | 

50 sé 9$ ADDL2 #3, RO : 1118 | 

0 4 ¢ DIVL2 #4. R : 

08 F E 9 BLBC PERM_FLAG, 10$ ; 1116 | 

0D % PUS R : 1118 

000000006 00 1 FB 0009 CALLS #1, DBGSGET_MEMORY : 

9 1 9F RB 11$ ; | 

0 DD al 10$:  PUSHL RO : 1120. 

000000006 00 01 F A CALLS #1, DBGSGET_TEMPMEM : | 
6 0 p AA 118 MOVL. RO. DESC FOBY ; 

66 6B 6B AD mOvCS (R11), (R11), (DESC_COPY) : 1121 


esa 


6A 


50 


é8 


o=z 


FLO 0 FO OMEN 


Pm oovunmo0e ur 


oo 
—o-00— 
SRE OOS 


COOCOCCGCOCOCGOSGoOOOCOOoooOoooO 


SS 2 2 2OOOCO NNN AMMMMMNOCOIVORMOoOWw ow 


_——0 
oon 


FUSS E~ £~ £~ 


—9F OOM TNS TOS TOMO 9 — 0" 9 - O-" ONS 9 9 OO" OW" CO OUT OO OV 70 C0 TO MWS 
ANNO 


MUP MW—"OWBWODS -DS OO" ON) ON | S$ MNO OU B BN SS M FOOCOMMDODS —-OCOWo oO 


OOQOOGOOOOOOOOOOOOOOSOOOSOOOOOOOOSOSOOOOOOSOOOOOOOOOOOOOOOOOOOOOO 
CGOOOOOOOSOSOOOOSOSOSOSOSOSOSOOSOSOSOSOSSSSSSSSSSOSSSSSCSOSCSOSOSSOSOSOSOOOOSOOOOOOO 


ts a a a a ts tt ts ls 


9c 12:47:01 EDeauG. Sac Sbacr anvec-039; 1 


$¢_cory, @PARAM2 
PERM_FLAG, 15$ 
#1, DBGSGET_MEMORY 
RO, DESC_COPY 
DESC COPY, COPY_DESC_HEAD 
6 
T 


TEMPMEM 
(DESC COPY) 
Y) B(SP) 


ZBes> 


TSO SSeS oz ena 
Pe ANAMNHD ~M-1N OX 
ouwwvw o- 
a] 
~< 


mo 
~ 


SC_COPY) 
NOBE 


mw 


E 
C 
) 
0 
( 
246 
$s 
0 
R 
R 


oov 


UBNODE), #1 
UBNODE), SUBCNT 
UBNODE). DIMCNT 
NT, DIMCNT 
CNT, NUMBLKS 
CNT, NUMBLKS 
NUMBLKS, RO 
RO), SIZE 
UBNODE), #7 
SIZE 
UBNODE), #19 
, SIZE 


SIZE 
“FLAG, 25$ 


DBGSGET_MEMORY 


oe 
Onn 


BD ROCVESH* MYSR—: 


wm 
4 


BGSGET TEMPMEM 
W_SUBRODE 


rat 4 4 
=m 
~ 


, R 
SUBNODE (NEW_SUBNODE ) 

M FLAG, 27$ 

UBNODES, #19 
10(NEW_SUBNODE) 

_SUBNODE 


MVBVIO VD BD BNW BU V SRW BNW ON BNL ON BONY —"V VUWN OW" HA VOB 
COD IA MONI OH M—N OA FMW EIN LOU O 


AMOMW We = = = MIG MY 


<e 


Pe Oe Se Se Se Se Se Se Se Ge Ge Se Ge Ge Se Ge Ge Ge Se Se Se Ge Ge Ge Ge Ge Ge Se Se Gs Ge Se Se Se Se Se Se Ge Se Se Ge Se Se Se Ge Se Se Se Se Se Se Se Be Ge Se Be Be 


brdeo-198s 01:26:56 YARGNT Bt 


1 $-32 V4.0-74 
1 DBGLANVEC.B32;1 

08 BE 58 D 17h MOVL NEW. SUBNODE, @8(SP) 

AA D0 001 MOVL W"SUBNODE, 24(DESC_COPY) 

6 08 AE DO 001 MOVL &(SP), (NEW. SUBNODE) 
04 A AF : MOVE SSP). 4 (NE@Q_SUBNODE ) 
04 BE 28 DO 0018D 28$:  MOVL #$NEW_SUBNODE, @PREV_SUBNODE 
18 AA D 1 MOVL NEW SUBNODE , 4(DESC_COPY) 

6 08 AE 00 001 MOVL 8 (SP), (NEW SUBNODE)~ 
6 A 4 AE DO 001 MOVL §§ PREV_SUBNODE, 4(NEW.SUBNODE) 
4 A 58 D 19E 298: MOVL wey suBNOD E, PREV_SOBNODE 

5 6 p 1A MOVL DE), §UBNOD E 
08 ar} d i, 0$ eCvL DESC_COPY, @PARAM2 

8 01 § 1AC 308: MOVL #i, Ro ; 

4 OO1AF RET 
0000 3188 32$: «WORD Save nothing 
7E D4 0018 CLRL 2 = (SP) 
5E pp 0184 PUSHL SP 
7E 04 AC D 00186 MOVG  4(AP) 
0000v CF 03 FB OO1BA CALLS #3, topy. ESC _HANDLER 
04 001BF RET 


; Routine Size: 448 bytes, Routine Base: DBGSCODE + 0276 
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1b-$e -1984 01:24: AX-11 Bliss-32 V4.0-74 P 33. 
10-38b-198e 92:97:09  Ebeaug. skcSoeacaNvér.o%3,1 298 147) | 
3 1138 126] 1 ROUTINE COPY_DESC_HANDLER (SIG, MECH) = 
3 11 1262 1! | 
; 114 1265 1 ! FUNCTION 
; 114 12646 1! This is the error hander for DBGSNCOPY_DESC. This routine is 
3 114 1265 1! responsible for freeing up the memory we have allocated so 
3 116 1 98 se far, if we get a NOFREE error message while copying the descriptor. 
3 1146 1267 1! 
3 1145 1268 1 ! INPUTS 
3 Be 1 $ 1! $1G = Signal argument vector 
3 114 1 1! MECH - not used 
3 108 1271 1! 
3; 114 1 ye 1 ! IMPLICIT INPUT 
; 1150 1275 1! COPY_DESC_HEAD = An own variable that points to the head of 
3 1151 1274 1! the descriptor copy. 
311 ¢ 1275 1! 
311 1 16 1 ! OUTPUTS 
; rs: : g : } This routine resignals the error. 
3 1186 1 § BEGIN 
3 11 1280 P 
3 1128 ! 4 SIG: REF VECTOR; 
3; 1160 1 Hy : Only do something if the error is ‘'no free storage’’ and if the own 
3; 1161 1284 ! variable COPY_DESC_HEAD is not zero (meaning that some storage has 
5 By ; Be : been allocated before the NOFREE). 
3 1164 128 if -SIGC1] EQL DBGS_NOFREE 
3 1165 1288 HEN 
3 1168 1289 IF .COPY_DESC_HEAD NEQ 0 
3; 116 1290 THEN 
; 1168 1291 BEGIN 
3; 1169 1 4 DBGSNF REE _DESC(.COPY_DESC_HEAD); | 
; 1170 129 COPY_DESC_HEAD = 0; 
3 1171 1294 ; 
3 1196 1295 
3 4302 ; 38 Having freed the storage, resignal the error. | 
3 1175 1398 RETURN SS$_RESIGNAL; 
3: 1176 1299 END; 
0004 00000 COPY_DESC_HANDLER: 
“= ,@ORD Save R : 1261. 
6 00000000" EF 43 0000 MOVAB 5 i naan R2 3 
5 04 ac 00 000 MOVL SIG,"R : 1287) 
00028332 &F 04 Ad D4 cMPL «6s 4 (RO), #164658 ; | 
0 1 BNEQ 1$ 3 
50 62 D 1 MOVL COPY_DESC_HEAD, RO 3; 1289) 
1 1A BEQL 1$ F 
0 oD 1¢ PUSHL RY : 1292. 
0000v CF 1 FB 1 CALLS #1, DBGSNFREE_DESC F 
2 04 CLRL 6 COPY DESC HEAD :1 93 
50 0918 8F ¢ 0065 1$: a #2328, R : . 9 


99 | 


poor st 
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43 bytes, 


3; Routine Size: 


b-Sep-19 4 03:9$'36 AX-11 


Bli 
14-Sep-1984 DEBUG. SRC 


GLOBAL ROUTINE DBGSNFREE_DESC (DESC, PARAM2, PARAMS) = 


ae 
FUNCTIONAL DESCRIPTION: 


PUN ODo 


Releases dynenic storage associated with a non-volatile copy of a 
language specific value or primary descriptor. 

This routine accepts as angus a copy of a primary or value 
descriptor produced by DBGSNCOPY_DESC and calls the 

routine DBGSREL_MEMORY to release each block of non-listed dynamic 
storage contained within the descriptor. 


This routine calls a lLanguage-specific routine based on the 
Language code in the descriptor header. 


FORMAL PARAMETERS: 


—b a te — — — _ d — 9 td is a a bs as — 9 2 4 4 Lt 


desc - The address of a non-volatile primary or 
value descriptor 


DBGLANVEC .B32;1 


param2 - The address of a longword to contain the address 


of a message argument vector jor errors 


IMPLICIT INPUTS: 


IMPLICIT OUTPUTS: 


SSIERRANLSSSLESLALLES 


On failure, a message argument vector. 


! ROUTINE VALUE: 


WALA ALA ARO ROPUPOPONOPUPUPIN 2 2 


An unsigned integer longword completion code 


COMPLETION CODES: 
STSSK_SUCCESS (1) - Success. Storage for descriptor released. 


STS$K_SEVERE (4) - Failure. Storage for descriptor not released. Message 
argument vector constructed and returned. 


ve oOo re eee | 
GEUSUN IS SSN ev OOMNOMP WN BOD Row 


eww 
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, ao 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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MANA 


Dynamic memory is retufned to the free storage pool. 
BEGIN 
MAP 

DESC: REF DBGSVALDESC; 


Handle value descriptors separately from primary descriptors. 
SELECTONE .DESC CDBGSB_DHDR_TYPE) OF 


! Ordinary value descriptors. These are allocated in one contiguous 


opel an Ec 
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ee ee me a cc ee ew ee ee ee a a ed ed ed ed od od wd 
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: block so we can just release that block. 
toacsk VALUE DESC, DBGSK_V_VALUE_DESC): 
DBGSREL_MEMORY (.DESC); 
END; 
! New style Primary Seger ryters. Here we have to release storage 
for the root node and all the subnodes. 
CDBGSK_PRIMARY_DESC): 
BEGIN 


DESC: REF DBGSPRIMARY; ! Pointer to the veers 
: Descriptor for which 
a symid list is to 


be constructed. 


LOCAL 
NEW_SUBNODE , ! Pointer to the next 
: subnode 
SAVED_PTR, ! Position in root node 


by the flink in the 
last subnode. 


' 
! 
! 
that is pointed to 
' 
! Pointer to a subnode. 


SUBNODE: REF DBGSPRIM_NODE; 


! First save away a pointer to the subnode and a pointer 
! which will_identify when we have looped through all the 
! subnodes. Then release the storage associated with the 
} root node. 


SAVED_PTR = DESC COBGSL_PRIM_FLINK); 
SUBNOBDE = .DESC CDBGSL_PRIM_FLINK); 
DBGSREL_MEMORY (.DESC): 


' Loop through the subnodes. After saving a pointer to the 
next subnode, release the storage for the current subnode. 


WHILE  . SUBNODE NEQ .SAVED_PTR DO 
DE = SUBNODE CDBGSL_PNODE_FLINK]; 


NEW_ SUBNO 
DBGSREL_MEMORY (.SUBN 
SUBNODE = .NEW_SUBNODE ; 


! At implementation level 3, we do not expect any other kind 
of descriptor. 


COTHERWISE): 
$DBG_ERROR ("DBGLANVEC\DBGSNFREE_DESC"); 


TES; 
: The storage has been freed. Return success. 
RETURN STS$K_SUCCESS; 


pee 38 | 


estan 


; 1292 1414 1 END; 


44 SF 


003C 000 

55 000000006 00 0000 

5 04 AC 00 0000 
5 02 a¢ 9A 00000 
™~» 6 55 91 Goon} 
a or 5 94 Goat? 
2 oD Bere 
05 af Fe Boole 
79 8F 50 91 +4 4 
1F 12 00028 
54 14 A 4 0002A 
53 14 A2 00 000 5 

52 bp G00 
$5 BES: 
2 13 OOO3A 
52 &$ 00 goose 
65 01 fe 00041 
53 52 00 00044 
EE 11 00047 
00000000' F 9F 00049 
1 DD O004F 
00028362 F DD 00051 
00000000G 00 03 FB Babee 
50 01 00 0005E 
04 00061 


; Routine Size: 98 bytes, Routine Base: DBGSCODE + 0461 


24 47 42 44 SC 43 45 56 4E 41 4C 47 «42 «444 «18 «(OOTIE P.AAI: 
23 $3 & 2s 45 $3 46 4E 80125 


1$: 


28: 


3$: 


4$: 


5$: 


-PSECT 
-ASCII 


-PSECT 


N15 
16-Sep-1984 01:24:56 AX-11 Bliss-32 V4.0-74 
10-388-1 382 93:97:05 G.S CIDBGLANVEC.B3 31 


DEBUG.SR 


DBGSPLIT,NOWRT, SHR, 


<24>\DBGLANVEC\<92>\DBGSNFREE_DESC\ 


DBGSCODE.NOWRT, SHR, 


DBGSNFREE DESC, Save R2,R3,R4,R5 


DBGSREL_ MEMORY, R5 


- DBGSREL_MEMORY 

» #121 

$ SAVED _PTR 
SUBNOBE 


MOOCRKHOR—NRKOM 
On” 
Dw 
~ 


BDNF DMBBDMVMD— DMV 
on 


annum 
nc — 


DBGSREL_MEMORY 
UBNODE, SAVED_PTR 


(SUBNODE), NEW_SUBNODE 
NOD 


#1, DBGSREL_MEMORY 
NeW .SUBNODE.. SUBNODE 


P.AAI 


#164706 
#3, LIBSSIGNAL 
#1, RO 
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1o-808-198s 93:93:39 Fok ade. Sacloeac any 
GLOBAL ROUTINE DBGSNGET_SYMID (DESC, PARAM2, PARAMS) = 

FUNCTIONAL DESCRIPTION: 


— 
wa 


Returns a List of symids contained within a language specific primary 
or value descriptor. 


This routine calls a language-specific routine based on the Language 
code in the descriptor Neecer. iF a 


FORMAL PARAMETERS: 


desc - A longword containing the address of » language specific 
primary or value descriptor. 


param2 - The address of a longword to contain the address of 


vector constructed and returned. 


i 
i 
i 
' 
; 
' 
4 
' 
$ ‘ 
' 
§ 
! 
01! 
10 1 : the first node in the symid List. Each node in the 
11 ¢ : consists of a two longword block. The first longword 
1 : is the Link field and contains the address of the 
1 ; next node in the List. This field is 0 for the Last 
1 5 : node in the List. The second longword contains the 
15 $ : value of a syate. Each symid tha apoeers ina 
18 : descriptor should appear once and only once in the 
1 3 symid list. 
19 40 i param3 - The address of ™ longword to contain the address of 
0 41 : a vy argument vector as described on page 4-119 
1 g of the VAX/VAS system reference, volume 1A 
5 6 { IMPLICIT INPUTS: 
5 4g NONE 
$ 48 : IMPLICIT OUTPUTS: 
5 50 i In case of a severe error return, a message argument vector is constructed 
: 2) : from dynamic storage and returned. 
¢ 38 ROUTINE VALUE: 
4 35 An unsigned integer longword completion code 
37 COMPLETION CODES: 
39 53 STSSK_SUCCESS (1) = Success. Symid List constructed and returned. 
0 61 STSSK_SEVERE (4) = Failure. No symid List returned. Message argument 
g§ ji 
64 ' SIDE EFFECTS: 
rr NONE 
6 1 | 

BEGIN 
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P 
DESC: REF DBGSVALDESC; 
OCAL 


“ 
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! Pointer to the head of 
: the symid List. 


! Implementation level 3 = all Languages at this Level have common 
descriptors so we construct the symid List here. 


ROUTINE APPEND_TO_LIST (SYMID, SYMID_LIST) : NOVALUE = 


i FUNCTION 
: This eubrovs te is used below to append a new symid 
to the symid List under construction. 


i INPUTS 

SYMID - The symid to be added to the List. 

SYMID_LIST = Points to a Longuord containing a pointer 
to the head of the symid List. 


' OUTPUTS 
: If the symid List was empty, a one-node List will be 
created and the SYMID_LIST parameter will contain 

48 porarer to this one-node list. 

Otherwise, the SYMID_LIST parameter is left unchanged 
but a node may be added to the List it points to. 


CNA UE WN Oo 


LINK_NODE: REF DBGSLINK_NODE, Pointer to a node in the 
symid List 


' 
; 

PREV_NODE: REF DBGSLINK_NODE; | Pointer to a node in the 
! symid list. 


GESRENVLSS 
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If the symid is zero, do not add it to the List. 

IF .SYMID EQL 0 THEN RETURN; 

: First check whether the given symid is on the List already. 
LINK_NODE = ..SYMID_LIST; 

PREV-NODE = .SYMID_CIST; 

WHILE zt INK NODE NEG 0 60 


IF LINK NODE CDBGSL_LINK_NODE_VALUE] EQL .SYMID 


S338 


a ed et od ed ot SOOO 


RETURN; 
PREV_NODE = .LINK_NODE; 
LINKINODE = .LINK-NODE COBGSL_LINK_NODE_LINK); 


H Allocate space for a new node and put it on the List. 
LINK_NODE = DBGSGET TEMPMEM (DBGSK_LINK_NODF SIZE); 
PREV_NODE CDBGSL_LIRK_NODE_LINK] =".LINR_NO®@€; 


a a ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee 
Pee eee ea a eal all eal ea) ales ala) ahah eh alah ab al ah sl sh sh dh dl et et ee oe oe et et a ae ae ae et ae et ot ot et det et et et et et et et tt 


PRLS & PAW 
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QLELRENLLSSSLSARS 


WN MEW OVO NOUE WN O0@ 


Romononononopnonony 


errant ee 


vou=000. ebe9He GU:G4:$  YAEGNE SLSSSRE WteOZsd., Pe 
: 1708 1293 3 1 te CDBGSL_LINK_NODE_VALUE] = .SYMID; 


000¢ 00000 APPEND_TO_LIST: 


.QORD Save R2,R3 : 148 
52 06 AC D 99 2 MOVL symib. R2 : 1359 
2A 1 BEQL $ ; 
59 08 Bc D 99 MOVL §§ @SYMID_LIST, LINK_NODE : 1513 
AC D MOVL SYMID_CIST PR Ev_RODE + 1514 
3 p ! 1$ iste NK RODE : 1515 
52 06 Ad 01 9 14 CMPL 4{<LINK_NODE), R2 + 1517 
18 13 00018 BEQL fa ; 
53 5 06 OO1A MOVL §_LINK_NODE, PREV_NODE ; 1520 
0 60 DO 0001D MOVL TLINR _NODE), LIRK_NODE + 1521 
; 11 00 9 BRB 1$ + 1515 
DD 99 2$ PUSHL #2 + 1527 
900000006 09 1 FB 024 CALLS #1, DBGSGET TEMPMEM : 
6 0 »dO0 00028 MOVL LINK_NOD i oeb) NODE) s 1528 
04 52 dO 000 5 MOVL R2, SL] 3 1368 
04 00032 3$: RET : 15 


Routine Size: 51 bytes, Routine Base: DBGSCODE + 04C3 


e 1 
oe 1 
; 1 
o 1 
= 1 
3 7 
3 7 
os 1 
© 1 
i 1 
37 
3 7 
oO 1 
; 7 
oO 1 
. 1 
37 
eo 1 
. 1 
3 7 
3 7 
e 1 
3 7 
3 7 
3 7 
57 
37 
; 1 


Initialize the pointer to the symid List. 

SYMID_LIST = 0; 

: Handle value descriptors separately from primary descriptors. 
seca rye -DESC CDBGSB_DHDR_TYPE] OF 


Oe a dd dd ed 
Wwnr-= 


—OOONOVUEWN —"OVDONOUEwn—o 


Ordinary value descriptors. 
(DBG$K_VALUE_DESC, DBG$K_V_VALUE_DESC): 
BEGIN 


DESC: REF DBGSVALDESC; ! Pointer toa a wre value 


des 
APPEND_TG_LIST (.DESC COBGSL_DHDR_ TYPE 10], SYMID LIST); 
eee. TO-LIST (.DESC COBGSL[DHDR-SYMIDOJ, SYMID-LIST); 


! New style Primary Descriptors. Here we have to get symids from 
the root node and all sub-nodes. 


CDBGSK_PRIMARY_DESC): 
BEGIN 


wi 
Wr 
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MAP 


2:17 DEBUG. SRC JDBGLANVEC 


16 
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DESC: REF DBGSPRIMARY; ! Pointer to the or imery 

: Descriptor for which 
a symid list is to 
be constructed. 


™ 
Br aOSe 


APPEND_TO_LIST(. SUBNODE CDBGSL_PNVAR_TAGIDJ,SYMID_LIST); 
SUBNODE = .SUBNODE CDBGSL_PNODE_FLINK); 
END; 


! At implementation level 3, we do not expect any other kind 
! of descriptor. 
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3 1 155 

3 14 1 66 

i 18 

> 144 1 88 

3 146 1 rf: LOCAL 

; Hyer : 5 SUBNODE: REF DBGSPRIM_NODE; ! Pointer to a subnode. 
3 ie ! ef } Append the typeid and the symid from the root node. 

; 1448 136 APPEND_TO_LIST (.DESC COBGSL_DHDR_TYPEID], SYMID_LIST); 

: 1308 1 oy APPEND_TO_LIST (.DESC LDBGSL_DHDR_SYMIDOJ, SYMID_LIST); 

3 iH : ue } Loop through each of the subnodes. 

5 14 i 1574 SUBNODE = .DESC COBGSL_PRIM_FLINK); 

: 1028 1378 i story penne NEQ DESCCOBGSL_PRIM_FLINK] dO 

: 145 1577 4 

3 1489 1578 4 ! ALL kinds of subnodes have typeids and symids 

: 1028 1323 2 sO we append these. ” . 

; 1460 1581 4 APPEND_TO_LIST (.SUBNODE CDBGSL_PNODE_TYPEIDJ], SYMID_LIST); 
; 1461 138¢ 4 APPEND_TO_LIST (.SUBNODE COBGSL-PNODE-SYMIDJ, SYMID_CIST); 
; 1288 1584 4 ! If the subnode is an grray node then it also 

: ie: 138? § } has typeids in the subscript vector. 

: 14 1587 4 iF .S DBGSB_P F QL RSTSK_TYPE_ARRAY 

! 1467 1588 Q THEN a CDBGSB_PNODE_FCODE] EQL RSTSK_TYPE_A 

> 1469 1590 CAL 

3; 1470 1591 SUBVECTOR: REF DBGSPRIM_NODE_SUBS; 

3; 1471 1236 APPEND_TO_LIST (.SUBNODE DBG$L_PNARR COLL TPE) SYED LIST): 
é 1ar6 159 SUBVECTOR™= SUBNODE COBGSA_PNARR SVECTORI; 

3 147 1594 §& ' Use whichever is larger, subcnt or dimcnt. 

> 147% 1595 5 SUBCNT = .SUBNODECDBGSB_PNA -SUBCNTI; 

3 1475 15 DIMCNT = .SUBNODECDBG$B~PNARR~DIMCNTJ: 

3 ee | 159 IF .SUBCNT GTR .DIMCNT 

3: 147 1598 THEN 

: 1009 1800 Oe 

> 1480 1601 NUMBLKS = .DIMCNT; 

: 1481 1608 INCR I FROM 0 TO .NUMBLKS-1 DO 

3 14 4 16 APPEND_TO_LIST (.SUBVECTORC.1, DBGSL_PNSUB_TYPEID), 
: 148 1604 a SYMID_LIST); 

: 12B¢ 1908 4 ELSE IF .SUBNODE CDBGSB_PNODE_FCODE] EQL RSTSK_TYPE_VARIANT 
3 14 16 4 THEN 

3 14 1 4 

3 14 1 4 

3 14 1 4 

: 14 1 

3 14 1 

3 14 1 

3 14 1 

3: 14 1 


RANSLSSELE 
AAOAOAASS 
at oe ot oe 
WMEwWnN—O 


24 47 42 44 5C a ? a 


a ts 
FAAAAAAAAAS 


RoroRoRonofon 
AABWN—OOONO 


Igcdec19Re 01:24:56 
tormervise3: 


DBG_ERROR ("DBGLANVEC\DBGSNGET_SYMID'?; 
TES; 
: The symid List has been constructed. Return success. 


“PARAM2 = ,SYMID_LIST; 
RETURN sTs$k_SUCTESS; 


-PSECT DBGSPLIT,NOWRT, 
<24>\DBGLANVEC\<92>\DBGSNGET_SYMID\ 


AX-11 BLi 
DEBUG. SRC 


$-32 V4.0-74 
DBGLANVEC .83 


SHR, PIC,0 


SHR, PIC,0 


56 4E 41 4C 47 42 44 18 00137 P.AAJ: ASCII 
40 59 53 SF 54 & 47 4E 00146 
PSECT DBGSCODE,NOWRT, 
O3FC 00000 
59 c8 AF 9E 00002 MOVAB Senior TO_LIST, R9 
7E D4 00006 CLRL of sT 
55 04 AC 00 00008 MOVL 
7A —soaBFF 02 AS 91 0000¢ CMPB bese R122 
07 13 00011 BEQL 4=sés«é TSS 
83 SF 02 A 91 00013 CMPB g5h5). #131 
13 12 00018 BNEQ $ 
5 DD OOOTA 1$: PUSHL 
08 A DD OO001C PUSHL (R5) 
69 2 FB OOO1F CALLS #2, APPEND_TO_LIST 
‘ DD 00022 PUSHL  $P 
0c A 0D 4 4 PUSHL 12(R5) 
69 02 FB 7 CALLS #2, APPEND_TO_LIST 
O0A 31 0002A BRW 
79 «BF o2 as 91 999 D 2$: CMPB g(R5). #121 
13 00032 BEQL 4 
0081 3 99 BRW 11$ 
DD 00037 3s: PUSHL SP 
08 A DD 9 PUSHL (RS) 
69 Q FB C CALLS #2, APPEND_TO_LIST 
E DD 05 PUSHL SP 
Oc AS 0D 1 PUSHL 
69 0 FB 044 CALLS "APPEND T9 sist 
2 14 AS 00 00047 MOVL ; ft 
3 BON Rae ee 
3$ 93 Ooose Beat ie 
SE DD 00054 PUSHL 
0c Ae 0D $ PUSHL Be 
69 9 FB CALLS APPEND. TO_LIST 
DD 0005¢ PUSHL 
10 A2 dD 0005€ PUSHL 6 (SUBNODE) 


31 


- ENTRY pgeenter SYMID, Save R2,R3,R4,R5,R6,R7,RB,= ; 
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; Routine Size: 


1¢ 


00000000" 


00028562 
000000006 00 
08 C 


DBGSCODE + 04F6 


1986 92:97:09 


; 


SERS 


0 
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5 
a 
0 
A 
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INNING O 


OOCoooooooooooooooo 
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& Sores 


ES 
o 


OAOWDIMOPAOFY 10 FP OWMIO DO F&F S“MIOOMOMOW 
ATA — FR ANPUPOPOMM COfUMM “IPO Wh h — COL 


V9 "CO O90 T0900 |= OS] 77TDONO-]|2 0 ]$9 VC oOwWo"0CO-o" 
Cowl 8 ]080 OR) 00 OC TMUNG |S] M0 OUun F PMMBOONn—wW 
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ooooooooeo 
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Vooow 


#2, APPEND_TO_LIST 
9(SUBNODE)> #T 
% 
SSD 
(r2), SuBvet 
(SUBNODE), : 
(SUBNODE ) 
CNT, OaMeNT 
SUBCNT, NUMBLKS 
33° 
DIMCNT, NUMBLKS 
i, 1 
8$ 
SP 
#20, 1, RO 
16(RO) ESUBVECTOR 
a(SP)+ 
#2, APPEND.19 LIST 
NUMBLKS, I> 7$ 
oun #19 


NODE) 
Oe: APPEND_TO_LIST 
( SUBNODE ) , ~ SUBNODE 


4% 
P.AAJ 
64706 
A LIBSSIGNA 
SY par eens aPARAM2 


AX-11 Bliss-32 V4.0 
DEBUG. SRC JDBGLANVEC. "83 


; 1 07 16 7 GLOBAL ROUTINE DBGSNINITIALIZE 
:4 1629 1 | FUNCTION 

; 1510 16 1! This routine calls Lang 
3; 1511 16 1! done before each comman 
; : 1g 19 ; ! } Lamguage specific machi 
: 1514 1634 1 | FORMAL PARAMETERS: 

> 1515 1635 1 

: 1 1 16 é 13 NONE 

> 151 1637 1 

: 1 18 16 $ 1 | IMPLICIT INPUTS: 

: 151 1639 1: 

: 1520 1640 1! NONE 

: 1521 1641 1: 

; 13 g 1648 1 | IMPLICIT OUTPUTS: 

: 4 1643 1: 

: 1853 1ge$ 1 i _ 

; 13 6 1646 i ROUTINE VALUE: 
Pee | ps 

: 15 1650 1 § COMPLETION CODES: 

> 1531 1651 1: 

ite oi 

: 15 1654 1 ! SIDE EFFECTS: 

> 1535 1655 1: 

i 1633 1 i wae 

: 1338 1658 ‘ BEGIN 

3; 1539 1659 RETURN; 

; 1540 1660 1 END; 


Routine Size: 3 bytes, Routine Base: DBGSCODE + 


3 1541 1661 0 END ELUDOM 


PSECT SUMMARY 
Name Bytes 
DBGSOWN 4 WNOVEC, WRT, 


H 16 
16-Sep-1984 01:24: AX-11 Bliss-32 V4.0-74 
13-300-138e 94:45:30 DEBUG. SRC JDBGLANVEC .832;1 
: NOVALUE = 
mane snecific initialization routines. This is 


d 18 processed to garuantee the integrity of the 
nery. 


0000 00000 -ENTRY DBGSNINITIALIZE, Save nothing 
04 00002 RET 


05¢B 


-EXTRN LIBSSIGNAL 


Attributes 
RD ,NOEXE,NOSHR, LCL, REL, CON, PIC.ALIGN(2) 


Page 


ah 
(14) 


ANVEC 1b-5e -1 AX-11 Bliss-32 V4.0-7 

oe 1 300-1 3b 9}: $3 39 DEBUG.SR Rciagcanvic.83 832;1 
; DBGSPLIT 336 NOVEC, _— T, RDO, EXE, SHR, LCL, REL, CON, PIC,ALIGN(Q) 
; DBGSCODE 1486 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
: Library Statistics 
; eooceee= Symbols ---°---- Pages Processing 
3 File Total Loaded Percent Mapped Time 
; SYSLIBILIB.L32;1 18619 100 :01.9 
; SOUA Bt DEBUG. OBJ STRULDEF 432: 31 32 6 Q $ 09:00:1 
; SS5RUA DEBUG .OB L3 154 rf 97 0:02.0 
3 3588S puA58 : (DEBUG. 08) DeTRECRDS. (32:1 
3 418 3 0 31 00:00.3 
3 "$255$DUA28: LDEBUG.08J2DBGMSG.L32;1 386 2 0 22 00:00.3 
3 COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:DBGLANVEC/OBJ=0BJ$:DBGLANVEC MSRC$:DBGLANVEC/UPDATE=(ENHS$: DBGLANVEC? 

Size: 1486 3 + 340 data bytes 

Run Time :32. 

tree, Tine: 1:49.9 

nes/CPU Min 3116 


Lenenes/CPU-Rin: 11001 
nme Used: 181 pages 
Compilation Complete 


084 -BT13A-SE EQ ENT CORPORATION 


VAX/ UMS V4.0 AND PROPRIETARY 


